
CIÒ* & plus/4 Wi'-ì] TI-99/4A sindair - 

sindair - Ciò- & plu ^4/ IL »»g ^^V4A 
TI' 9 ^ 4 A sindaK (m>^ ttìfv28) 


CI«M Yf Ejtj&jfr 

Cé" 1 " cU & M A 

TI^Ìa sindair- N m 

'I) : !<:]il TI-99/4A sindain CIÒ* 3plus/4 
CIÒ- & plus/4 IR/iì ii TI-99/4A sindair 
sindair CIÒ* & plus/4 ®§s§ìl TI-99/4A 
TI-99/4A sindair - CIÒ* & plus/flM^jg 
I/ m: TI-99/4A sindai^^t 


,v ’r m' c * 

VsSSw 5 '* 


^^H^sindair CIÒ- ? plus/4 :l : i''!'l 
DsNSff) TI -99/4A sindair - CIÒ- & plus/4 

















Guida per l'input dei programmi versioni 
C16 plus/4 - VIC 20 


Notate che i listati contengono 'pa¬ 
role' racchiuse tra parentesi graffe 
I /. Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero, questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da [(>] deve esse¬ 


re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico " solitario " questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL 
Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con¬ 
trollo del cursore o dei colori. 
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Per ricevere gli arretrati di 

ù&ffi compilare il seguente tagliando: 












Compilare ed inviare in busta chiusa a: 




Nome. 


Cognome. 


Indirizzo. 


CAP. 


Città. 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 
- 


dedicato a. 


. Anno. 
Anno_ 


a L. 2.000 cad. per un totale di L 
□ assegno allegato 


a mezzo 


□ contanti allegati 


2 























Clós-plus/4 


6 Agenda Telefonie* 

di v Siniscalco 

4 •> Lettura veloce 

1 J dii McKenna trad e «doli di F Sorcina 



,* V Tank contro Ufo 

«3 di y Jawson irad e odati di M Anticoii 

in il lupo e I 5 agnelli 

IO di R Wayton trad e adadtt di f Saremo 


* TI-99/4A 


a M Grld (BASIO 

i I di C Regena trad e odott di E He Garbagnati 

M Diamond Drop 

di M Giwer trad e adatt di E Re Garbagnati 


sinczlaii - 

Spectrum 

«e Copycat (16/4810 

ÌCO 01 Jeremy Keen trad e adatt di Carlo Panzalis 

agli tacchino (16/4BK) 

A Ct di A Pope trad e adatt di Carlo Panzalis 

Architetto OÓ/48K) 

i “ di M Turner trad e adatt di Carlo Panzalis 
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Questo articolo è rivolto esclusiva- 
mente ai "Commodoriani" che usa¬ 
no il VIC 20, il 06 o il Plus/4. 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di STOP BUG per il tuo computer. 
Questo programma • ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: "■.rem"seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me ? per PRINT). 

Usando STOP BUG tieni conto del 


fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE (su VIC 20) 
oppure RUN/STOP e RESET (su 
06 o PLUS/4). 

Per riattivarlo batti: 

SYS PEEK (56)*256 per il VIC 20; 
SYS 16128 per il 06 e il Plus/4. 
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STOP BUG per CI6 e PLUS/4 


100 POKE55 f O:POKE56,63:PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = 1612 8T016 260 :READA:CK=CK + A:POKEI,A :NEXT 
120 IFCKOl 4248THENPRINT" {GIU 1 }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYSl6128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201,32,208,1,96,1 41 
210 DATA33,63,173,35,3,141,34,6 3,1 69 
220 DATA32,1 41 ,34,3,169,63,1 41,35,3 
230 DATAI 69,0,1 33,6,96,32,232,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 
250 DATAI 7,201,32,240,5,24,101,6,133 
260 DATA6,165,3,166,4,164,5,40,96 
270 DATAI 69,1 3,32,210,2 55,165,205,141,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,210,2 55,166,6,169,0 
310 DATAI 33,6,1 72,33,63,1 92,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 
3 30 DATAI 69,32,32,210,255,32,210,255,1 73 
340 DATA251,3,133,205,76,55,63 

STOP BUG PER VIC 20 


100 POKE5 5,0 :POKE56,PEEK(56)-1:R = PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO_" 

110 FORI=RTOR+132 :READA:CK=CK + A:IFA=999THENA=R/256 
120 POKEI,A:NEXT 

130 IFCK022689THENPRINT" {GIU ' lERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R):PRINT"{CLR]{ 2 GIU 1 ){RVS}STOP BUG{OFF} ATTIVAI 
O.": NEW 

200 DATAI 73,36,3,201,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATAI 69,0,1 33,254,96,32,87,241 , 1 33 
240 DATA251 , 1 34,252,1 32, 253,8,201,1 3,240 
2 50 DATAI 7,201 ,32,240,5,24,101,2 54,133 
260 DATA254,1 65,251 , 1 66,252,1 64,253,40,96 
270 DATAI 6 9,1 3,32,21 0,255,1 65,214 , 1 41 , 251 
280 DATA3,206,251,3,169,0,133,216,169 
2 90 DATAI 9,32,21 0,255,1 69,1 8, 32,21 0,255 
300 DATAI 69,58,32,210,255, 166,2 54 , 1 69,0 
310 DATA!33,254,172,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,210,255,32,210,2 55,173 
340 DATA251 ,3, 133,214,76,55^.999 
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Esaminiamole in dettaglio: 


Questo programma può essere 
usato sia come agenda telefonica, 
che come archivio clienti. Ha il van¬ 
taggio di essere molto veloce per¬ 
ché i dati sono contenuti in vettori 
stringa. Può gestire contempora¬ 
neamente 126 nominativi (sul 06) 
ognuno suddiviso in 3 campi: CO¬ 
GNOME, NOME e NUMERO DI TE¬ 
LEFONO. 

Subito dopo aver dato il RUN vi 
verrà chiesto se volete caricare i 
dati da nastro. Bisognerà risponde¬ 
re affermativamente solo se è stato 
registrato un archivio in preceden¬ 
za. Dopo una risposta affermativa 
viene domandato il codice di rico¬ 
noscimento ed il nome del file. Se 
il nome del file corrisponde a quel¬ 
lo immesso in fase di registrazione, 
viene controllato il codice di rico¬ 
noscimento prima richiesto con 
quello caricato da nastro: se corri¬ 
spondono viene effettuato il cari¬ 
camento dei dati. 

Le opzioni di questo programma 
sono sette: 

1) Inserire nominativo 

2) Ricercare nominativo 

3) Eliminare nominativo 

4) Ricerca per cognome 

5) Ordinamento alfabetico e/o vi¬ 
sione agenda 

6) Registrare sul nastro 

7) Fine lavoro 


Opzione Inserire Nominativo 

Viene dapprima verificato se vi è 
abbastanza memoria RAM, contra¬ 
riamente viene stampato un mes¬ 
saggio di fine memoria e si ritorna 
al menù. Si verifica poi che il nume¬ 
ro di nominativi non superi il nu¬ 
mero massimo consentito,- se ciò 
avviene si stampa che non c'è po¬ 
sto in agenda e viene visualizzato 
nuovamente il menù. Altrimenti 
vengono richiesti i dati relativi ai 
tre campi e una conferma. Se il no¬ 
minativo introdotto è già presente, 
non viene memorizzato. 

Opzione Ricercare nominativo 

Sono richiesti, il cognome ed il no¬ 
me del nominativo: se i dati inseriti 
sono già presenti in una scheda, è 
visualizzato il numero di telefono 
relativo ad essa. 

Opzione Eliminare nominativo 

Vengono richiesti il cognome e il 
nome del nominativo da eliminare: 
se i dati inseriti sono già presenti, 
il record viene annullato ed al suo 
posto viene inserita l'ultima scheda 
dell'agenda. 

Opzione Ricerca per cosnome 

Viene richiesto il cognome e inizia 
una ricerca in base alla quale ven¬ 
gono stampati tutti i nominativi 
aventi per cognome quello prece- 
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dentemente inserito. Dopo aver 
stampato 20 nominativi con lo 
stesso cognome si attende la pres¬ 
sione di un tasto per fare continua¬ 
re la ricerca. 

Opzione Ordinamento alfabeti¬ 
co e/o visione archìvio 

E' possibile tramite questa opzio¬ 
ne sia visionare l'agenda nel suo 
ordine attuale sia ordinarla alfabe¬ 
ticamente e poi visionarla. 


Opzione Registrare su nastro 

Dopo aver chiesto il numero di ri¬ 
conoscimento e il nome da asse¬ 
gnare al file, viene visualizzata la 
richiesta di riavvolgere se necessa¬ 
rio il nastro e vengono registrati i 
dati. 

Opzione Fine lavoro 

Se si esce dal programma inavver¬ 
titamente o per errore, è possibile 
rientrarne conservando i dati pre¬ 
mendo "FI". 


1 POKEl 344,0:NM% = 12 5 :DIMC$(NM%) ,N$(NM%) ,T$(NM%) : rem 

71 

2 PRINTCHRS(14)CHR$(8)CHR$(27)"C"CHR$(27) 

"N":CH$=CHR$i 

(13) 

:V$=CHR$(34):CN%=-1 

: rem 

160 

3 CE$«"=#*###*#««**»**#»»**«*»*****«»*#*##*«#«#":rem 

242 

4 RG$=">###########################!#" 

: rem 

167 

5 FORR=1T08:KEYR,RIGHT$(STR$(R),1):NEXTR 

: rem 

51 

6 VOL8 

: rem 

95 

7 GOSUBl 39 

: rem 

84 

8 PRINT"{CLR}" 

: rem 

156 

9 CHARl ,0,23,"SCRIVERE IL NUMERO RELATIVO 

AL COMPITO 


{ 1 6 DES}DA SVOLGERE{HOME}" 

: rem 

144 

10 PRINT" { RVS} NUMERO NOMINATIVI PRESENTA 

"STR$(CN%+1)" 

1 

{GIU'}" 

: rem 

20 

11 PRINTUSINGCE?;"COSA VUOI FARE{GIU'}[<7>]" : rem 

12 PRINTUSINGCE$;"lRVS}1{OFF}) INSERIRE NOMINATIVO 

82 


: rem 

98 

13 PRINTUSINGCE$;"{RVS}2{OFF}) RICERCARE 

NOMINATIVO" 



: rem 

181 

14 PRINTUSINGCE?;"{RVS}3{OFF}) ELIMINARE 

NOMINATIVO" 



: rem 

189 

15 PRINTUSINGCE?;"{RVS}4{OFF}) RICERCA PER COGNOME" 



: rem 

13 

16 PRINTTAB(8)"{RVS}5{OFF}) ORDINAMENTO ALFABETICO"CHR$(1 

3)TAB(12)"E/O VISIONE AGENDA 

:rem 

7 

17 PRINTUSINGCE$;"{RVS}6{OFF}) REGISTRARE 

SU NASTRO" 



: rem 

160 

18 PRINTTAB(8)"{RVS}7{OFF}) FINE LAVORO" 

: rem 

19 

19 FORR=lT04:PRINT:NEXTR:PRINT"{BLK}? {GIU'}t{SIN}{SU} 

(1 • 
r 


: rem 

44 

20 IM%=1:GOSUBl68 

: rem 

228 

21 IFZ$<"1"ORZ$>"7"THENGOSUBl94 :GOTO20:ELSES%=VAL(Z$) 



: rem 

229 

22 ONS%GOSUB32,50,64,77,89,116 

: rem 

1 28 

23 IFS%=7THEN25 

: rem 

11 8 

24 GOT08 

: rem 

21 5 
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25"KEYl,"V08:?CH(14)CH(8):F0R=1TO8:KER,R.I (STR(R),1):NER:P 
01344,0:GO8"+CHR$(13) :rem 60 

26 VOLO :F0RR=2T08:KEYR,"":NEXTR:PRINTCHR$(142)CHR$(9) 

: rem 49 

27 PRINT"{CLR}[<7>] I DATI SONO ANCORA MEMORIZZATI: PREMI 

{GIU’}{ 3 SPAZI}{RVS}F 1{OFF} PER : rem 37 

28 PRINT"RIENTRARE NEL PROGRAMMA SE NE{GIU'}{ 7 SPAZl}SEI 

USCITO INVOLONTARIAMENTE," : rem 155 

29 PRINT"{GIU'}{ 7 SPAZI}ALTRIMENTI PREMI IL TASTO" 

:rem 223 

30 PRINTCH$:PRINTUSINGCE$;"{FLASH ON}RESET{BLK}": rem 172 

31 POKE1 344,1 28:END : rem 55 

32 IFFRE(0)<350THENGOSUB210 :G0T04 9 : rem 72 

33 CN%=CN%+1:IFCN%>NM%THENCN%=CN%-1:GOSUBl91:G0T049 

:rem 83 


34 PRINT"{CLR}":PRINTUSINGCE$;"INSERIRE NOMINATIVO" 

:rem 40 


35 PRINT"{GIU’}[<7>]COGNOME"TAB(22)"(MAX. 20 LETTERE) 

{BLK}"CHS :PRINT"? {GIU'}T{SIN}{SU}"; : rem 249 

36 IM% = 20 zGOSUBl68 :C$(CN%)=Z$:CO$=C$(CN%) : rem 26 

37 PRINT:PRINT"(GIU'}[<7>]NOME"TAB(22)"(MAX. 15 LETTERE) 

{BLK}"CH$:PRINT"? {GIU’Tt{SIN}{SU}"; :rem 237 

38 IM%=15:GOSUBl68:N$(CN%)=Z$:NO$ =N$(CN%) :rem 65 

39 IFNOTCN%=OTHENGOSUBl95:IFF%=1THENF%=0:Z$="N":G0T047 

:rem 107 

40 PRINT:PRINT"{GIU'} [<7>]NUMERO DI TELEFONO"TAB(22)" (MA 
X. 15 LETTERE){BLK}"CH$:PRINT"? {GIU'}T{SIN}{SU}"; 


: rem 119 

41 IM%=15:GOSUBl68:T$(CN%)=Z$ :rem 144 

42 PRINT"{CLR}":PRINT"[<7>]COGNOME{ 2 SPAZI}:{BLK}";:PRIN 

TUSINGRG$;C$(CN%) : rem 175 

43 PRINT"[<7>J{GIU'}NOME{ 5 SPAZI}:{BLK}PRINTUSINGRG$; 

N$(CN%) :rem 85 

44 PRINT"[<7>]{GIU'}TELEFONO :{BLK}";:PRINTUSINGRG$;T$(CN 

%) :rem 137 

45 GOSUB216 :rem 130 

46 IM% = 1:GOSUBl68 :IFZ$ = "S"THEN4 9 :rem 163 

47 IFZ$="N"THENC$(CN%)="":N$(CNl)="":T$(CN%)="":CN%=CN%-1 

:GOT04 9 :rem 24 4 

4 8 GOSUBl 94:G0T04 6 : rem 103 

49 RETURN :rem 77 

50 IFCN%<OTHENGOSUB215:G0T063 : rem 57 

51 PRINT"{CLR}":PRINTUSINGCE$;"RICERCA NOMINATIVO" 

:rem 191 


52 PRINT"{GIU'}[<7>]COGNOME"TAB(22)"( MAX . 
{BLK}"CH$:PRINT"? {GIU'}T{SIN}{SU}"; 

53 IM%=20:GOSUBl68:CO$=Z$ 

54 PRINTCHS"{GIU'}(<7>]NOME"TAB(22)"( MAX . 
{BLK}"CH$:PRINT"? {GIU’}t{SIN}{SU}"; 

55 IM%=15:GOSUBl68:NO$=Z$ 

56 FORR=OTOCN%:IFNOTC?(R)=CO$THEN58 


20 LETTERE) 
:rem 
:rem 
15 LETTERE) 
: rem 
: rem 
: rem 


248 
1 98 

21 2 
21 5 
189 
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57 IFN$(R)= NO$THENF% = 1 :N%=R:R=CN% 

58 NEXTR:IFN0TF$=1THENGOSUB204:G0T063 

59 F% = 0 :PRINT"{CLR}":PRINT"[<7>]COGNOME{ 
:PRINTUSINGRG$;CO$ 


:r em 209 
:rem 178 
SPAZI}:{BLK}"; 
:rem 17 


60 PRINTCH$"[ < 7 > ]NOME{ 5 SPAZI}:{BLK}"; :PRINTUSINGRG$;NO$ 

:rem 58 

61 PRINTCH$"[<7>]TELEFONO :{BLK}PRINTUSINGRG$;T$(N%) 


20 


: rem 

62 FORR=lT04:PRINT:NEXTR:GOSUB201 : rem 

63 RETURN ;rem 

64 IFCN%<OTHENGOSUB215:G0T076 :rem 

65 PRINT"{CLR}":PRINTUSINGCES;"ELIMINARE NOMINATIVO" 

:rem 

66 PRINT"{GIU'}[<7>}COGNOME"TAB(22)" (MAX. 

{BLK}"CH$:PRINT"? {GIU' }T {SIN} {SU}~ 

67 IM%=20:GOSUBl68:CO$=Z$ 

68 PRINTCH$"{GIU'}[<7>JNOME"TAB(22)"(MAX. 

{BLK}"CHS :PRINT"? {GIU*}t{SIN}{SU}"; 

69 IM%=15:GOSUBl68:NO$=Z$ 

70 FORR=OTOCN%:IFNOTC$(R)=CO$THEN74 

71 IFNOTNS(R)=NO$THEN74 

72 CS( R ) ="":N$(R)="":T$(R)="":C$(R) 

:T$(R)=T$(CN%) 


227 

197 

73 

66 

97 


20 


LETTERE) 

:rem 253 
:rem 203 
LETTERE) 

:rem 213 
:rem 220 
:rem 183 
:rem 149 
C$(CN%):N$(R)=N$(CN%) 

: rem 159 


73 C$(CN%)="":N$(CNl)="":T$(CN%)="":R=CN%:CN%=CN%-1:Fl=l 


: rem 
: rem 
: rem 
: rem 
: rem 


74 NEXTR 

75 IFNOTF%=lTHENGQSUB204 

76 F% = 0: RETURN 

77 IFCN%<OTHENGOSUB215:GOT088 

78 PRINT"{CLR}":PRINTUSINGCES;"RICERCA PER COGNOME" 

: rem 

79 PRINT"{GIU 1 }[<7>JCOGNOME"TAB(22)"(MAX. 20 LETTERE) 

{ BLK} "CH$ : PRINT"? {GIU ’ } t {SIN} {SU}“ : rem 

80 IM% = 20:GOSUBl68:CO$ = ZS : rem 

81 PRINT"{CLR}":FORR=OTOCNl:IFNOTC$(R)=CO$THEN8 6: rem 

82 CU % =CU %+1 :PRINTC$(R)TAB(23)N$(R) ; rem 

83 IFNOTCU%=20THEN86 : rem 

84 PRINT"{GIU 1 }":GOSUB201 : rem 

85 PRINT"{CLR}":CU%=0 :rem 

86 NEXTR :rem 

87 CU% = 0:PRINT"{GIU 1 }":GOSUB201 irem 

88 RETURN :rem 

89 IFCN%<OTHENGOSUB215:GOTOl15:ELSEIFCN% =0THENi 04 

rem 


154 

252 

10 

95 

73 

1 79 

1 

1 98 
90 
240 
228 
1 55 
53 
255 
2 

80 

76 


90 F% = 0 :PRINT"{CLR}":PRINTUSINGCES;"ORDINAMENTO ALFABETIC 

r» **» / n fu 1 II _ _ t ^ _ . . \ f i < t —“ 



0? (S/N)PRINT"{GIU'}t{SIN}{SU}"7 

: rem 

36 

91 

IM%=1:GOSUBl68 

: rem 

236 

92 

IFZ$="S"THEN94:ELSEIFZ$="N"THENl04 

: rem 

235 

93 

GOSUBl94 :GOTO91 

: rem 

103 

94 

PRINT"{CLR}":PRINTUSINGCE$;"ATTENDERE 

ORDINAMENTO 

ALFA 


BETICO" 

: rem 

239 


9 





95 

P%=CN%-1:Fl=0 

: rem 

70 

96 

forr=otop% 

: rem 

45 

97 

IFC$ (R) >C$ (R+l ) THENl 00 

:rem 

109 

98 

IFNOTCS(R)=C$(R+l)THENl03 

: rem 

97 

99 

IFNOTNS (R) >N$ (R+l ) THENl 03 

: rem 

1 21 

1 00 

VT$ =C$ (R) :C$ (R) =C$ (R+l ) :C$ (R+l ) =VT$ 

: rem 

56 

1 01 

VTS=N$ (R) ;N$ (R) =NS (R+l ) :NS (R+l ) =VT$ 

: rem 

101 

1 02 

VT$ =TS (R) :T$ (R) =T$ (R+l ) :T$ (R+l ) =VTS:F%=1 

: rem 

145 

1 03 

NEXTR:IFF%=1THENF%=0:P%=P%-1:GOT096 

; rem 

111 


104 


1 05 


1 06 


1 07 


1 08 


1 09 


110 


PRINT"{CLRjPREMERE ’{RVS}{<7>]C{OFF){BLK}’ PER ANDARE 
AVANTI{GIU'}" :rem 78 

PRINT"PREMERE '{RVS}l<7>1R{OFF}{BLK}' PER RITORNARE A 
L MENU'{ 2 GIU'}" : rem 13 

PRINT"[<7>]***•************************************": 
FORR=OTOCN% : rem 203 

PRINT"l<7>]COGNOME{ 2 SPAZI}:{BLK}"; :PRINTUSINGRGS;C$ 
(r) : rem 22 3 

PRINT"[<7>]{GIU'}NOME{ 5 SPAZI1:{BLK}";:PRINTUSINGRG$ 
; N$ (R) : rem 35 

PRINT"[<7>]{GIU'}TELEFONO :{BLK}";:PRINTUSINGRGS;T$(R 
) : rem 87 

PRINT"[<7>]****************************************" 




: rem 

141 

1 1 1 

GETA$:IFA$=""THENl 11 

:rem 

73 

1 1 2 

IFA$ = "C"THENl14:ELSEIFA$="R"THENl 1 5 

: rem 

1 

113 

GOTOl11 

:rem 

97 

1 1 4 

NEXTR 

:rem 

39 

1 1 5 

RETURN 

: rem 

11 9 

116 

IFCN%< 0THENGOSUB20 7 :GOTOl38 

: rem 

160 

11 7 

PRINT"{CLR}":PRINTUSINGCES;"REGISTRARE SU 

NASTRO" 




: rem 

108 

1 1 8 

PRINT"{GIU'}l<7>]CODICE DI RICONOSCIMENTO" 

: rem 

246 

1 1 9 

PRINT"(MAX. 10 LETTERE){BLK}"CH$ 

: rem 

6 

1 20 

PRINT"? - TgIU'}T{SIN}{SU}"; 

: rem 

123 

1 21 

IM% = 10 :GOSUBl68:CD$ = Z$ 

:rem 

230 

1 22 

GOSUB216 

: rem 

174 

1 23 

IM% = 1 :GOSUBl68 

: rem 

24 

124 

IFZ$="S"THENPRINT"{CLR}":GOTOl26:ELSEIFZ$= 

"N"THENCD$= 


"":GOTOl17 

: rem 

1 89 


1 25 
1 26 

1 27 
1 28 
1 29 
1 30 

1 31 
1 32 

1 33 


GOSUBl94:GOTOl23 

PRINT"[<7>]NOME AGENDA"TAB(22)"( MAX . 
"CHS"{GIU'}? {GIU'}t{SIN}{SU}"; 

IM%=16:GOSUBl68:NA$=Z$ 

GOSUB216 
IM%=1:GOSUBl68 


:rem 191 
16 LETTERE){BLK} 
:rem 47 
: rem 250 
:rem 180 
;rem 30 


IFZ$="S"THENPRINT"{CLR}":GOTOl32:ELSEIFZ$="N"THENPRIN 
T"{CLR}":GOTOl26 : rem 239 
GOSUBl94:GOTOl29 : rem 194 
PRINT"{CLR}":PRINTUSINGCE$;"RIAVVOLGI IL NASTRO SE NE 
CESSARIO":GOSUB201 :rem 98 
PRINT"{CLR}";OPENl,1,1, NA$ : rem 49 

10 





1 34 

PRINT#1,V$;CD$;V$ 


: rem 

1 86 

135 

FORR=OTOCN% 


: rem 

1 52 

1 36 

PRINT# 1 ,V$;C$(R);V$;CH$;V$;N$(R);V$;CH$;V$ 

; T$ (R) ; 

v$ 




:rem 

1 05 

1 37 

NEXTR:CLOSEl 


: rem 

13 

1 38 

RETURN 


: rem 

124 

1 39 

PRINT"tCLR){GIU'}{DES}VUOI CARICARE I 

DATI 

DA NASTRO 


(S/N)PRINT"{GIU'}t{SIN}{SU}"; 


: rem 

119 

140 

IM% = 1 :GOSUBl68 


: rem 

23 

141 

IFZ$="S"THENl43:ELSEIFZ$="N"THENl66 


: rem 

73 

1 42 

GOSUBl94 : GOTO140 


: rem 

1 89 

1 43 

PRINT"{CLR}":PRINTUSINGCES;"CARICAMENTO DA 

NASTRO 

II 




: rem 

118 

144 

PRINT"[<7>]{GIU'}CODICE DI RICONOSCIMENTO"' 

CH$"(MAX. 1 


0 LETTERE){BLK}"CH$ 


:rem 

130 

145 

PRINT"? {GIU'}t{SIN}{SU}"; 


: rem 

130 

146 

IM%=10:GOSUBl68:CD$=Z$ 


: rem 

237 

1 47 

GOSUB216 


; rem 

181 

148 

IM% = 1 :GOSUBl68 


: rem 

31 

149 

IFZ$="S"THENl51:ELSEIFZ$="N"THENCD$="" 

: GOTO!43 





:rem 

234 

1 50 

GOSUBl94 :GOTO14 8 


: rem 

196 

1 51 

PRINT"{CLR}{GIU'}[<7>]NOME AGENDA"TAB( 

22) " 

(MAX. 16 LE 


TTERE){BLK}{GIU'}"CH$"? {GIU'}T{SIN}{SU}"; 

: rem 

209 

1 52 

IM% =16 :GOSUBl68:NA$=Z$ 


:rem 

248 

1 53 

GOSUB216 


:rem 

178 

1 54 

IM% =1 :GOSUBl68 


: rem 

28 

1 55 

IFZ$="S"THENl57:ELSEIFZ$="N"THENNA$="" 

:GOTOl51 





: rem 

244 

1 56 

GOSUBl94:GOTOl54 


: rem 

199 

1 57 

PRINT"{CLR}":PRINTUSINGCE?;"RIAVVOLGI 

IL NASTRO SE NE 


CESSARIO":GOSUB201 


: rem 

105 

1 58 

TRAP212 :PRINT"{CLR}":OPENl,1,0,NA$ 


: rem 

61 

1 59 

INPUT#1,Cl$ 


: rem 

71 

1 60 

IFC1$<>CD$THENl65 


:rem 

174 

1 61 

FORR=OTONM% 


: rem 

161 

1 62 

INPUT#1 ,C$ (R),N$(R),T$(R) 


: rem 

59 

1 63 

IFST=64THENCN%=R:R=NM% 


: rem 

116 

1 64 

NEXTR 


: rem 

44 

1 65 

TRAP:CLOSEl 


: rem 

180 

1 66 

RETURN 


: rem 

125 

167 

END 


: rem 

117 

1 68 

CL% =0 :Z$ = "": DO 


: rem 

198 

1 69 

GETA$:IFA$=""THENl69 


; rem 

99 

1 70 

IFNOTAS =CHR$(20)THENl73 


; rem 

56 

1 71 

IFCL%=0THEN169 


: rem 

24 

1 72 

CL%=CL%-1 :Z$ = LEFT$(Z$,CLl):GOSUBl94:G0T0169 :rem 

251 

1 73 

IFNOTAS=CH$THEN176 


: rem 

57 

1 74 

IFCL%=0THENl69 


: rem 

27 

1 75 

EXIT 


: rem 

21 5 

1 76 

IFASC(AS)>122ANDASC( A$ )<193THEN169 


: rem 

149 
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1 77 
1 78 
1 79 
1 80 
1 81 
1 82 

1 83 
1 84 
185 
1 86 
1 87 
1 88 

1 89 
1 90 
1 91 
1 92 

193 
1 94 
1 95 
1 96 
1 97 
1 98 
1 99 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 


IFASC(A$)< 32THEN169 
IFASC(A$)>218THEN169 
IFASC(A$)=3 4THEN169 
IFNOTA$ = " "THEN182 
IFCL%=0THEN169 


21 

21 

21 


: rem 
: rem 
: rem 
: rem 
: rem 


43 

100 

48 

201 

25 


PRINTAS"{GIU'}{SIN} t{SIN}{SU}";:CL%=CL%+1:Z$=Z$+A$ 


: rem 
: rem 
; rem 
: rem 
: rem 
: rem 


132 

14 

201 

190 

127 

135 


LOOPUNTILCL%=IM% 

IFA$ OCHSTHENSOUNDl,900,5 
GOSUBl87 

RETURN 

DOUNTILMIDS(Z$,CL%,1)<>" " 

IFMIDS(Z$,CL%,1)=" "THENZS =LEFT$(Z$,CL%-1):CL%=CL%-1 
GOTOl90 
EXIT 

LOOP:RETURN 
PRINT"{CLR}" 

PRINTUSINGCES;"NON C'E'POSTO 


IN 


: rem 75 
: rem 220 
:rem 238 
:rem 255 
AGENDA":GOSUB201 
:rem 

RETURN 

PRINTCHRS(20)"{GIU'Jt {SU}{ 2 SIN}"; :RETURN 
FORR=OTOCN%-1:IFNOTC$(R)=CO$THENl97 
IFN$(R)=NO$THENR=CN%:F%=1 
NEXTR 

IFNOTF%=lTHEN200 

PRINT"{CLR}":PRINTUSINGCE$;"NOMINATIVO GIÀ' 

:GOSUB201 
RETURN 

PRINTUSINGCES;"PREMI ’C' PER CONTINUARE":PRINT"{GIU ' } 
t{SIN}{SU}"; :rem 161 

IM% = 1 : GOSUBl 68 : IFZ$O"C"THENG0SUBl 94 : GOT02 02 : rem 
RETURN : rem 

PRINT"{CLR}" :rem 

PRINTUSINGCE$;"NOMINATIVO NON PRESENTE IN AGENDA" 
UB201 :rem 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


1 80 
125 
178 
131 
201 
50 
188 
PRESENTE" 
: rem 46 
:rem 114 


178 

117 

250 

GOS 

174 


:rem 120 
DA REGIST 


: rem 
: rem 
: rem 
: rem 
: rem 


1 1 8 
173 
1 23 
27 
133 


21 6 


RETURN 

PRINT"{CLR}":PRINTUSINGCES;"NON C’E' NIENTE 
RARE" 

GOSUB201 
RETURN 

PRINT"{CLR}":PRINTUSINGCES;" FINE MEMORIA " 

FORR=1T02000:NEXTR:RETURN 

PRINT"{CLR}":PRINTUSINGCES;"ERRORE NEL NASTRO" 

:rem 246 

GOSUB201 :rem 169 

RESUMEl65 :rem 4 

PRINT"{CLR}":PRINTUSINGCES;"NON E’ PRESENTE NESSUN NO 
MINATIVO":GOSUB201:RETURN :rem 120 

FORR=1T04:PRINT :NEXTR:PRINTUSINGCES;"CONFERMI (S/N)": 
PRINT"{GIU'}T{SIN}{SU}";:RETURN :rem 146 
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Lettura veloce 


! 


Questo semplice programma vi 
permetterà di esercitarvi per au¬ 
mentare la vostra velocità di lettu¬ 
ra. Esso mostra, riga per riga, un 
testo sullo schermo, rendendone 
però visibile in ogni istante solo la 
parte che deve venire osservata 
dai vostri occhi. In tal modo il mo¬ 
vimento di questi ultimi viene gui¬ 
dato, consentendovi di imparare a 
concentrarvi meglio su ciò che leg¬ 
gete senza disperdere la vostra at¬ 
tenzione. La lunghezza della parte 
di testo visualizzata può venir au¬ 
mentata o diminuita a piacimento 
agendo rispettivamente sui tasti > 


e <; per modificare la velocità di 
scorrimento si usano invece i tasti 
A (accellera) e R (rallenta). Potrete 
così aumentare pian piano la vo¬ 
stra rapidità di lettura fino a rag¬ 
giungere un livello soddisfacente. 
Il testo deve venir memorizzato 
nelle istruzioni DATA (linee da 
1000 in poi) facendo attenzione 
che ogni stringa non superi i 40 ca¬ 
ratteri. Potete sostituire al messag¬ 
gio-esempio da noi inserito un te¬ 
sto di qualsiasi lunghezza, con 
l'unico accorgimento di lasciare 
come ultima istruzione DA TA quel¬ 
la contenente la stringa "END". 


1 o 
20 
30 
40 
50 
60 
70 
80 
90 

1 00 

no 

120 


COLORO,2,2:COLOR4,2,2 : rem 117 
PRINT"{WHT}" : rem 56 
CL=2528 : rem 0 
DD=50:NC=5 : rem 203 
PRINT"{CLR}" : rem 201 
FORI = lT04:PRINT:NEXTI : rem 100 
PRINTTAB(12)"{RVS} LETTURA VELOCE " : rem 180 
PRINT:PRINT:PRINT : rem 131 
PRINT:PRINT"{ 3 SPAZI}A -ACCELERA LA VELOCITA' DI LETT 
URA" :rem 88 

DI LET 


PRINT:PRINT"{ 
TURA" 

PRINT:PRINT"{ 
NEA" 

PRINT:PRINT"{ 


SPAZI}R -RALLENTA LA VELOCITA 
SPAZI}> -MOSTRA PIU* 

SPAZI}< -MOSTRA MENO 


: rem 180 
CARATTERI PER LI 
: rem 111 
CARATTERI PER LI 



NEA" 

: rem 

136 

1 30 

PRINT:PRINT"{ 3 SPAZI}Q -USCITA DAL 

PROGRAMMA" 




: rem 

234 

1 40 

PRINT:PRINT:PRINT 

: rem 

176 

1 50 

PRINT"{ 3 SPAZI}PREMI LA BARRA PER 

INIZIARE":PRINT 



: rem 

226 

1 60 

S=PEEK ( 2038) : IFS O60ANDSO62THEN1 60 

: rem 

52 

1 70 

IFS=62THEN60000 

: rem 

68 

1 80 

POKE806,103 

: rem 

38 
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1 90 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
31 0 
320 
330 
340 
999 


COLORI,2,2 • rem 
READA$ :rem 
IFA$="END"THENRUN :rem 
PRINT"{CLR}{ 12 GIU' }"A$ :rem 
FORL=0TO39 > : rem 
POKECL+L,113 :rem 
IFL-NC>=0THENPOKECL+L-NC,33 :rem 
FORD=OTODD:NEXTD :rem 
NEXTL :rem 
S*PEEK(2038) :rem 
IFS=10THENDD=DD-10 :rem 
IFS=17THENDD=DD+10 :rem 
IFS=44THENNC=NC+2 : IFNOl 1 THENNC=NC-2 : rem 
IFS=47THENNC=NC-2:IFNC<3THENNC=NC+2 :rem 
IFS=62THEN60000 : rem 
GOTO200 :rem 


REM *** QUESTA LINEE DATA SONO SOLO UN ESEMPIO*** 

: rem 


1 000 DATA"QUESTO E' UN ESEMPIO PER PROVARE IL" : rem 
1010 DATA"PROGRAMMA DI LETTURA VELOCE." : rem 
1020 DATA"QUESTE LINEE POTRANNO ESSERE SOSTITUITE" 

: rem 


6 
1 9 
3 
41 
68 
140 
143 
24 

36 
109 

37 
34 

237 

192 

66 

98 

22 

188 

96 

186. 


1030 DATA"CON QUELLE CHE DESIDERATE.{ 2 SPAZlJlL COMPUTER 
» :rem 166 


1040 DATA"MOSTRERA' IL TESTO UNA LINEA ALLA VOLTA" 

:rem 200 


1050 DATA"DA SINISTRA VERSO DESTRA, OBBLIGANDOVI" 

t :rem 4 

1 060 DATA"AD UTILIZZARE I VOSTRI OCCHI IN" : rem 234 

1070 DATA"MANIERA CORRETTA.{ 2 SPAZljDOPO AVERE FATTO" 

: rem 21 b 

1080 DATA"UN POCO DI PRATICA, POTRETE RADDOPPIARE" 

:rem 6 


1090 DATA"0 TRIPLICARE LA VELOCITA’ DI SCORRIMENTO" 

:rem 83 

1100 DATA"UTILIZZANDO IL TASTO A OPPURE RALLENTARE" 

:rem 163 

1110 DATA"LO SCORRIMENTO TRAMITE IL TASTO R." : rem 199 

1120 DATA"SE DESIDERATE VEDERE PIU' CARATTERI" : rem 3 

1130 DATA"CONTEMPORANEAMENTE USATE IL TASTO >." :rem 118 
1140 DATA"IL TASTO < DEVE INVECE ESSERE USATO" : rem 177 
1150 DATA"PER VEDERE MENO CARATTERI SULLA LINEA." 

:rem 173 

1160 DATA"TRAMITE LA PRESSIONE DEL TASTO Q" : rem 50 

1170 DATA"USCIRETE DAL PROGRAMMA. QUESTO PROGRAMMA" 

:rem 183 

1180 DATA"UTILIZZA UNA DELLE STESSE TECNICHE" : rem 8 
1190 DATA"USATE NEI CORSI REGOLARI DI LETTURA" : rem 10 
1 200 DATA"VELOCE. CON UN POCO DI APPLICAZIONE" : rem 205 
1210 DATA"POTRETE ANCHE VOI GODERE DEI BENEFICI": rem 79 

1 220 DATA"DI UNA LETTURA SPEDITA E SICURA CHE" : rem 155 
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1230 DATA"MIGLIORERA 1 I VOSTRI RISULTATI NELLA" 
1240 DATA"SCUOLA E NEL LAVORO." 

1250 DATA"END" 

60000 POKE239,0:POKE806,101 
60010 PRINT"{CLR}{WHT}":END 


rem 

147 

rem 

1 7 

rem 

253 

rem 

228 

rem 

113 


Tank contro Ufo 



In questo spettacolare sioco sarai 
al comando di un Tank (carro ar¬ 
mato), dotato di modernissime ar¬ 
mi antiaeree, e dovrai cercare di 
abbattere gli Ufo extraterrestri che 
transitano sulla tua testa, evitando 
nel contempo di farti colpire da lo¬ 


ro. 

Guadagni un punto per ogni Ufo 
eliminato; la partita termina quan¬ 
do il quinto Tank viene distrutto. Ti 
sposti a destra e a sinistra usando 
rispettivamente i tasti IC] e 111, e 
spari con IBI. 


100 

REM*‘TANK CONTRO UFO** 

: rem 

10 

1 1 0 

REM**PAPERSOFT** 

: rem 

21 0 

1 20 

POKE56,28:POKE52,28 

: rem 

41 

130 

POKE51, PEEK(5 5) :CLR:POKE36879,4 2 

:rem 

92 

140 

GOSUBl130:PRINT"{CLR}" 

:rem 

1 20 

150 

VR=PEEK(648)*256 

:rem 

90 

160 

KR=38 400 :IFVR< >7680THENKR=37 88 8 

: rem 

75 

170 

OF=KR-VR 

: rem 

220 

180 

VA=9*16 T 3+14 :VN = 9*1613+13 

:rem 

93 

190 

POKEVA+1,25 

:rem 

79 

200 

PRINT"{BLK}{HOME}{ 22 GIU’}"; 

;rem 

1 83 

210 

PRINT"{RVS}l< 21 T>]{OFF}{ 5 SU} " 

:rem 

60 

220 

FORA=KRTOKR+22* 23 :POKEA,0:NEXT:A=0 

: rem 

122 

230 

PRINT 

: rem 

34 

240 

PRINT"{CYN}{ 2 SPAZI}8 " 

: rem 

62 

250 

PRINT"9:: : ; " 

:rem 

138 

260 

PRINT"{ 3 SU}"; 

: rem 

87 

270 

GOSUBl230 

: rem 

223 

280 

IFPEEK(197)=34THENGOSUB660:A=A+1:GOTO600 

:rem 

1 41 

290 

IFPEEK (197) O48THEN320 

: rem 

235 

300 

POKEVA,0 :POKEVN,0 

: rem 

30 

310 

PRINT"{BLU}{CLR}";:GOTOl280 

: rem 

1 44 

320 

IFPEEK(1 97)= 33THENGOSUB660:A=A-1:GOTO600 

: rem 

1 37 

330 

IFNOT(PEEK(1 97)= 35ANDB=0)THEN360 

: rem 

1 09 

340 

B=1:C = 8078+A:L=1:P=15:POKEVN, 1 58 

: rem 

60 

350 

POKEC,63:POKEC+OF,2 :GOTO430 

: rem 

115 


15 








360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

81 0 

820 

830 

840 


IFL=0THEN380 

:rem 

1 71 

POKEVA,P:P=P-1:IFP=-1THENL=0:POKEVN,0 

: rem 

86 

IFB = OTHENPOKE36878,0 :GOTO430 

: rem 

1 73 

POKEC,32:C=C-22 

: rem 

45 

IFPEEK(C)= 60ORPEEK(C)=6lTHEN780 

: rem 

75 

IFC< 7746THENB = 0: GOTO430 

: rem 

99 

POKEC,63 

: rem 

1 57 

IFD = 0THEN1 1 00 

: rem 

200 

IFD=0THEN500 

: rem 

1 56 

POKEE,32:POKEE-1,32 :POKEE-2,32 :K = K + 1 

: rem 

66 

IFE=ITHEND=0:GOTO500 

:rem 

220 

E=E+J:POKEE,61 :POKEE-1,60 

: rem 

1 82 

IFE< = 7746THENPOKEE,32 :POKEE+1,32:POKEE-1,32: 

: GOTO1 

1 00 


: rem 

98 

IFJ=lTHEN530 

:rem 

171 

IFNOT(I NT((81 86-E)/22)=22-K-AANDF=0)THEN520 

: rem 

162 

F=1:G=E+21:M=21 

: rem 

2 

GOTO550 

: rem 

1 06 

IFNOT(INT((8098-E)/22)=A-KAANDF<>0)THEN550 

: rem 

151 

F=1:G=E+23:M=23 

: rem 

9 

IFF=0THEN280 

: rem 

165 

POKEG,3 2 :G=G+M 

:rem 

31 

IFPEEK(G) O32THEN920 

: rem 

145 

IFG>VR+22* 21THENF=0:GOTO700 

:rem 

97 

POKEG,62:GOTO280 

:rem 

181 

IFA<0THENA=0 

: rem 

1 75 

IFA>16THENA=16 

: rem 

32 

PRINT 

: rem 

37 

PRINTTAB(A)"{ 2 SPAZI}8" 

:rem 

1 1 

PRINTTAB(A)"9:: : 

:rem 

246 

PRINT"{ 3 SU}";:GOTO330 

: rem 

99 

PRINT 

: rem 

41 

PRINTTAB(A)"{ 4 SPAZI}" 

:rem 

21 5 

PRINTTAB(A)"{ 5 SPAZI}" 

:rem 

21 6 

PRINT"{ 3 SU}"; : RETURN 

:rem 

120 

POKEG,194 :POKEG+1 ,206:POKEG-1,205 

: rem 

120 

POKEG-20,1 74:POKEG-21,174:POKEG-22,1 74 

:rem 

1 1 8 

POKEG-23,1 74:POKEG-24,1 74 

:rem 

11 6 

FORAA=1TO100 :NEXT 

: rem 

30 

POKEG,32:POKEG+1,32:POKEG-l,32 

: rem 

222 

POKEG-20,32:POKEG-21,32 :POKEG-22,32 

:rem 

21 3 

POKEG-23,32:POKEG-24,32 

:rem 

1 0 

GOTO280 

: rem 

1 1 3 

POKE30720+C,5 

: rem 

1 53 

POKE30720+C + 1 ,5 :POKE30720+C-1,5 

:rem 

1 36 

L=0 

: rem 

81 

POKEVN,228 

: rem 

52 

FORGG = l5TOOSTEP-1 :POKEVA,GG+l28 

: rem 

1 59 

FORGH=lTO70:NEXT:NEXT 

: rem 

123 

B=0:D=0 

:rem 

54 
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850 POKE30720+C,0 :POKEC ,32 
860 POKE30720+C+1 , 0:POKEC + 1,32 
870 POKE30720+C-1,0:POKEC-1,32 
880 GOTO890 

890 PRINT"{BLU}{HOME}{GIU'}"; 

900 DU=DU+1:GOSUBl230 

910 GOTO280 

920 POKEVN,128 :L=0 

930 A=A:E'ORKL=lTO200STEP3:POKEVA,15-INT(KL/13) + 
940 PRINTTAB(A)" 

950 PRINTTAB(A)"{CYN}{ 2 SPAZI}8" 

960 PRINTTAB(A)"9:: 

970 PRINT"{ 2 SU}"; 

980 FORI=1TO50:NEXTI 

990 PRINTTAB(A)"{BLK}{ 2 SPAZI}8" 

1 000 PRINTTAB(A)"9: : : ;" 

1010 PRINT"{ 3 SU}"; 

1020 FORI=lTO50:NEXTI 
1030 NEXT 

1040 PRINTTAB(A)"{ 3 SPAZI}" 

1050 PRINTTAB(A)"{ 3 SPAZI}" 

1060 PRINTTAB(A)"{ 5 SPAZI}" 

1070 PRINT"{ 3 SU}"; 

1080 DT=DT+1:GOSUBl230:IFDT=5THEN1460 
1090 F=0:A=0:GOTO230 

1100 D=1:E=7702+INT(RND(1)*14)*22+88:I=E-20:K=0 
1110 J = -l : IFRND ( 1 ) > . 5THENE= E- 21 : I=E+20: J*=l 
1120 GOTO440 

1130 PRINT"{CLR}{YEL}{RVS}* *‘TANK CONTRO UFO*** 


1 1 40 
1 1 50 
1 1 60 
1 1 70 
1 1 80 
1 1 90 
1200 

1210 
1220 
1230 
1240 
1250 
1 260 
1270 
1280 
1290 
1 300 
1310 
1320 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 


2 GIU 1 }{WHT}GUIDI IL TANK E DEVI' 
GIU'}SPARARE ALL'UFO." 

3 GIU'JUSA I SEGUENTI TASTI:" 

2 GIU'} Z = SINISTRA" 

GIU'} C = DESTRA" 

GIU'} B = FUOCO" 

3 GIU'}{YEL}{RVS}UN TASTO PER GIC 


GETA$: IFA$ = ""THEN1210 
GOSUBl300:POKE36869,255:RETURN 
PRINT"{BLU}{HOME}{RVS}==> PUNTI:"DU 
PRINT"{RVS} = = > TANK DISTRUTTI :"DT; 
PRINT"{BLK}{RVS}{ 22 E}" 

PRINT"{ 14 GIU'}{CYN}" 

RETURN 

FORI=ITO50:GETA$:NEXT:POKE36879,27 

POKE36869,240:POKE56,PEEK(56)+2:END 

FORI=lT09 

READX 

FORJ=0TO7 


: rem 

207 

: rem 

1 36 

: rem 

141 

: rem 

1 22 

:rem 

240 

: rem 

228 

:rem 

1 09 

: rem 

40 

1 28 

: rem 

16 

: rem 

1 81 

:rem 

175 

: rem 

251 

:rem 

206 

:rem 

9 

:rem 

1 64 

:rem 

29 

: rem 

1 29 

: rem 

43 

: rem 

3 

:rem 

255 

:rera 

0 

: rem 

1 

: rem 

135 

: rem 

223 

: rem 

1 09 

: rem 

11 

:rem 

130 

: rem 

149 

{OFF}" 

:rem 

84 

:rem 

96 

:rem 

207 

:rem 

33 

:rem 

192 

: rem 

239 

:rem 

168 

ARE{OFF}" 

:rem 

24 

: rem 

171 

:rem 

1 00 

:rem 

246 

:rem 

105 

:rem 

41 

:rem 

39 

:rem 

170 

: rem 

1 20 

: rem 

28 

: rem 

62 

:rem 

57 

: rem 

62 
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1 330 

READK 

: rem 

46 

1 340 

POKEX+J,K 

: rem 

59 

1 350 

NEXTJ/I 

: rem 

1 99 

1 360 

RETURN 

: rem 

170 

1370 

DATA7424,0,0,0,0,0,0,0,0 

: rem 

1 50 

1380 

DATA7648,64,32,31 ,25,57,1 27,238,56 

: rem 

1 99 

1 390 

DATA7656,2,4,24 8,1 52,1 56,254,1 1 9,28 

: rem 

247 

1400 

DATA7664,68,108,124,56,56,56,16,0 

: rem 

1 40 

1410 

DATA7672,1 6,56,56,56,1 24,108,68,0 

: rem 

1 40 

1420 

DATA761 6,24,24,24,24,60,1 26,255,255 

: rem 

228 

1430 

DATA7624,15,31,31,63,63,31,31,15 

: rem 

67 

1 440 

DATA7632,255,255,255,255,255,255,255,255 

: rem 

245 

1450 

DATA7640,240,248,248,252,252,248,248,240 

: rem 

235 

1460 

PRINT"{HOME}{RVS}{RED}{ 6 GIU'}{ 5 SPAZI}FINE 



{ 3 SPAZI}GIOCO{ 5 SPAZI}{OFF}" 

: rem 

1 04 

1470 

PRINT"{GRN}{GIU'}{RVS} GIOCHI ANCORA (S/N)? 

{OFF] 

i " : P 


OKEl98,0 

: rem 

1 58 

1480 

GETLLS:IFLL$=""THEN1480 

: rem 

107 

1 490 

IFLL$ = "S"THENPOKE36869,240 :RUN 

: rem 

76 

1 500 

IFLL$="N"THEN300 

: rem 

162 

1 510 

GOTO!480 

: rem 

205 


fJI lupo e I 5 asnelli 


Nel mondo dei videogiochi può 
accadere di tutto, persino di assi¬ 
stere a degli agnelli che danno la 
caccia ad un povero lupo! Voi im¬ 
personate il lupo, rappresentato 
dal simbolo "WW", che all'inizio si 
trova in un angolo della scacchiera 
che appare sul video, mentre il 
computer controlla gli agnelli. Per 
vincere dovete riuscire a mangiare 
tre dei cinque agnelli senza farvi 
catturare. Per mangiare potete 
muovervi, utilizzando i tasti curso¬ 
re, verticalmente ed orizzontal¬ 
mente compiendo il numero di 
passi (da uno a cinque) che il com¬ 
puter vi concede quando è il vo¬ 
stro turno. Se vi viene detto, per 


esempio, di effettuare tre passi po¬ 
tete farne uno verso l'alto e due 
verso destra. Il movimento degli 
agnelli è leggermente più limitato, 
in quanto essi possono muoversi 
uno per volta e in una sola direzio¬ 
ne, ma non illudetevi, la caccia non 
sarà così facile! Ogni agnello è rap¬ 
presentato da una G seguita da un 
numero compreso tra 1 e 5, indi¬ 
cante la distanza che l'agnello in 
questione può coprire muovendo¬ 
si in una delle quattro direzioni 
possibili. Tenete infine presente 
che sia il lupo che gli agnelli posso¬ 
no mangiare solo se la preda si tro¬ 
va nella casella d'arrivo, e non in 
una di quelle di transito. 
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10 REM IL LUPO E I 5 AGNELLI 

: rem 

21 7 

20 DI MB (10,10) , R ( 5) »C(5) , NM(5) 

: rem 

3 

30 POKE36879,123 

: rem 

101 

40 C$(0)="[< 2 +>]" 

; rem 

25 

50 C$ (!)="{ 2 SPAZI}" 

: rem 

207 

60 D$ = "{HOME}{ 16 GIU'}" 

: rem 

114 

70 GOTO920 

: rem 

59 

80 REM DISEGNA IL CAMPO 

: rem 

76 

90 0NCA+2G0T0100,110,120 

: rem 

46 

100 R=RW:C=CW:TX$ = "WW": GOTO!50 

: rem 

95 

110 TX$=C$(R+CANDl):GOTOl50 

• :rem 

36 

120 R=R(GT):C=C(GT) 

: rem 

73 

130 TX$ = "G"+RIGHT$(STR$(NM(GT)) ,1) 

: rem 

156 

140 CA=GT 

: rem 

241 

150 PRINTLEFT?(D$, R+3);SPC(2*C-1);TX$ 

: rem 

129 

160 B(R,C)=CA 

: rem 

172 

170 RETURN 

: rem 

120 

180 REM INIZIALIZZA 

: rem 

203 

190 REM DISEGNA IL CONTORNO 

: rem 

128 

200 PRINT"{CLR}{BLU}"; 

:rem 

80 

210 FORR=lTOl0 

: rem 

62 

220 FORC=1TOl0 

: rem 

48 

230 CA=0:GOSUB80 

: rem 

168 

240 NEXTC,R 

:rem 

150 

250 REM COLLOCA IL LUPO 

: rem 

77 

260 RW=1:CW=1:NM=INT(RND(0)*3+1) 

: rem 

93 

270 CA=-1:GOSUB80 

: rem 

21 8 

280 REM COLLOCA GLI AGNELLI 

; rem 

83 

290 FORGT=1T05 

; rem 

99 

300 R(GT)=INT(RND(0)*10 + 1 ) 

: rem 

150 

310 C(GT)=INT(RND(0)*10 + 1 ) 

; rem 

136 

320 NM(GT)=INT(RND(0)*5+1) 

; rem 

181 

330 IFB(R(GT),C(GT))<>0THEN300 

: rem 

189 

340 CA=1 :GOSUB80 

:rem 

171 

350 NEXTGT 

; rem 

114 

360 RETURN 

: rem 

1 21 

370 REM MUOVE IL LUPO 

: rem 

223 

380 PRINTD$;"{ 2 SPAZl}PUOI FARE"NM"PASSI":IFNM=1THENPRIN 

T"{SU}"TAB(18)"O" 

: rem 

80 

390 FORDU=1TONM 

: rem 

200 

400 GETMV$:IFMV$ = ""THEN400 

: rem 

15 

410 : 

; rem 

207 

420 RD= (MV$ = " {SU} ANDRW> 1 ) - (MV$="{GIU' } 

"ANDRWC10) 



: rem 

110 

430 CD=(MV$="{SIN}"ANDCW>1)-(MV$="{DES} 

"ANDCW<10) 



: rem 

90 

440 TE=B(RW+RD,CW+CD) 

: rem 

227 

450 IFTE<0ORTE>0ANDDU<NMTHEN400 

; rem 

21 9 

460 NM(TE)=0 

: rem 

140 

470 SC=SC+SGN(TE) 

: rem 

1 

480 R=RW:C=CW 

: rem 

40 
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490 

CA=0:GOSUB80 

:rem 

1 76 

500 

RW=RW+RD:CW=CW+CD 

: rem 

66 

51 0 

CA=-1:GOSUB80 

: rem 

21 5 

520 

NEXTDU 

: rem 

1 1 1 

530 

NM=INT(RND(0) *3 + 1 ) 

: rem 

202 

540 

RETURN 

: rem 

1 21 

550 

REM MOSSA DEL COMPUTER 

:rem 

69 

560 

PRINTD$;"{ 4 SPAZIJORA TOCCA A ME{ 3 SPAZI} 

" : rem 

46 

570 

REM VALUTAZIONE 

: rem 

210 

580 

MX=-400 

: rem 

64 

590 

FORGT=1T05 

:rem 

1 02 

600 

IFNM(GT)=0THEN650 

: rem 

227 

610 

CG=C(GT):RG=R(GT)+NM(GT):GOSUB760 

: rem 

228 

620 

RG=R(GT)-NM(GT):GOSUB760 

: rem 

1 83 

630 

RG=R(GT):CG=C(GT)+NM(GT):GOSUB760 

: rem 

230 

640 

CG=C(GT)-NM(GT):GOSUB760 

: rem 

1 55 

650 

NEXTGT 

: rem 

117 

660 

REM MUOVE GLI AGNELLI 

: rem 

228 

670 

C=C(GB):R=R(GB) 

: rem 

47 

680 

CA=0:GOSUB80 

:rem 

177 

690 

R (GB)=RB:C(GB) =CB 

: rem 

1 81 

700 

NM(GB)=INT(RND(0) *5 + 1 ) 

: rem 

1 65 

710 

GT=GB 

:rem 

249 

720 

CA=1:GOSUB80 

:rem 

1 73 

730 

IFMX< 400THENRETURN 

: rem 

1 73 

740 

PRINTD$;"{ 6 SPAZI}HAI PERSO.{ 5 SPAZI}" 

: rem 

1 52 

750 

END 

: rem 

1 1 5 

760 

REM CONTROLLO SITUAZIONE 

: rem 

72 

770 

IFABS(R(GT)-RW)+ABS(C(GT)-CW)=NMTHENSQ=200: 

GOTO7 90 
:rem 61 

780 

SQ=0 

:rem 

1 76 

790 

IFRG< 1 ORRG> 1 0ORCG< 1 ORCO 1 0THENRETURN 

: rem 

1 27 

800 

IFB(RG,CG)>0THENRETURN 

:rem 

1 34 

81 0 

DI=ABS(RW-RG)+ABS(CW-CG) 

: rem 

1 56 

820 

IFDI=0THENSQ=500:GOTO900 

:rem 

21 2 

830 

IFDI=NMORDI=NM-2THENRETURN 

: rem 

3 

840 

IFDI<=5THENSQ=SQ+35 

:rem 

1 73 

850 

SQ=SQ-40*((RG=RW)*(CG=CW)) 

: rem 

21 8 

860 

FORG=1T05 

:rem 

18 

870 

SQ=SQ- 1 0* ( (RGOR(G) ) + (CGOC (G) ) ) 

: rem 

21 4 

880 

NEXT 

: rem 

223 

890 

IFSQ+RND(0)<MXTHEN910 

:rem 

14 

900 

MX=SQ:GB=GT:RB=RG:CB=CG 

: rem 

228 

91 0 

RETURN 

: rem 

1 22 

920 

REM PROGRAMMA PRINCIPALE 

:rem 

12 

930 

GOSUBl80 : REM INIZIALIZZA 

:rem 

33 

940 

GOSUB370:REM MUOVE IL LUPO 

: rem 

54 

950 

IFSC=3THEN980 

:rem 

3 

960 

GOSUB550:REM MOSSA DEL COMPUTER 

:rem 

1 58 

970 

GOTO940 

:rem 

118 

980 

PRINTDS;"{ 5 SPAZI}HAI VINTO!!!{ 4 SPAZI}" 

:rem 

21 8 

990 

END 

: rem 

1 21 
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Grid 


Questo progrdmmd è di un genere 
diverso dai soliti incontrati. In pra¬ 
tica verrà stampata una griglia di 
9x9 quadrati, ognuno dei quali 
potrebbe nascondere un'uscita 
perduta tra le meraviglie del com¬ 
puter. Voi, muovendovi con i tasti 
frecciati, dovreste tentare di indo¬ 
vinare dove si nasconde que¬ 
st'uscita: per fare questo premete 
il tasto « ENTER - quando vi siete 


posizionati sulla casella voluta. Se 
avrete indovinato, vi verrà stampato 
il numero di tentativi; in caso contra¬ 
rio, vi verrà stampata una freccia 
puntata verso la direzione esatta (un 
suggerimento in pratica). 

Detto questo, non dovete fare al¬ 
tro che digitare questo non lungo 
programma e cercare di "uscire “ il 
più velocemente possibile. In boc¬ 
ca al lupo!! 


100 REM 
1 1 0 REM 

120 CALL CLEAR 

130 PRINT TAB(8);"***********" 

140 PRINT TAB(8);"*";TAB(18); " * " 

150 PRINT TAB(8);"* GRID*" 

160 PRINT TAB(8);"*";TAB(18) 

170 PRINT TAB(8)j"***********" 

180 PRINT : : : :"TROVA IL PUNTO DISPERSO" 
190 PRINT "SULLA MAPPA." 

200 PRINT :"USA E,S,D,X PER MUOVERE" 

210 PRINT "IL TUO PUNTO, E PER TENTARE" 
220 PRINT "PREMI <ENTER>." 

230 CALL CHAR(96,"0000001 Fi 01 01 01 ") 

240 CALL CHAR(97,"00O000FF") 

250 CALL CHAR(98,"OOOOOOFFl010101") 

260 CALL CHAR(99,"000000FO1010101") 

270 CALL CHAR(100,"101010101010101 ") 

280 CALL CHAR(101 , " 1 01 01 01 Fi 01 01 01 " ) 

290 CALL CHAR(102,"10101OFFl0101 01 ") 

300 CALL CHAR(103,"10101OFOl0101 01 ") 

310 CALL CHAR(104,"1010101F") 

32 0 CALL CHAR(105,"10101 OFF") 

330 CALL CHAR(106,"101010F") 

340 CALL COLOR(9,5,1) 

350 CALL COLOR(10,5,1) 
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360 A$ = " ' a ba ba ba ba ba ba ba ba c " 

370 B$="d ddddddddd" 

380 C$="eafafafafafafafafag" 

390 D$="haiaiaiaiaiaiaiaiaj" 

400 CALL CHAR(128, "3C7EFFFFFFFF7E3C") 

410 CALL COLOR(13/7,1) 

420 CALL CHARMI 3,"081 0207F201 008") 

430 CALL CHAR(1141 03854921 01 01 01 ") 

440 CALL CHAR(115,"080402FF020408") 

450 CALL CHAR(116,"101010109254381") 

460 CALL CHAR(120,"3C7EFFFFFFFF7E3C") 

470 CALL COLOR(12,12,1) 

480 PRINT ::"PREMI UN TASTO PER PARTIRE."; 
4 90 CALL KEY ( 0 , K , S) 

500 IF S<1 THEN 490 
510 CALL CLEAR 
520 CALL SCREEN(8) 

530 PRINT TAB(6);A$ 

540 FOR 1=1 TO 7 

550 PRINT TAB(6);B$;TAB(6);C$ 

560 NEXT I 

570 PRINT TAB(6);B$;TAB(6);D$ 

580 C=48 

590 PRINT TAB(6);"0 1 23456789" 

600 FOR 1=22 TO 6 STEP -2 
610 CALL HCHAR( 1,7,0 
620 C=C+1 
630 NEXT I 

640 PRINT ::TAB(10);"PUNTI:" 

650 RANDOMIZE 
660 AX=INT(RND* 1 0) 

670 AY=INT(RND*9) 

680 SC=0 
690 G=104 
700 BX=0 
710 BY=0 

720 CALL GCHAR(19,8,G) 

730 1=19-BY*2 

740 J=8+BX*2 

750 CALL HCHAR(I,J,120) 

760 CALL KEY(0,K,S) 

770 IF K=13 THEN 1080 
780 IF K<>69 THEN 840 
790 DI=-1 
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800 DJ=0 

810 IF BY+1< 9 THEN 1010 

820 DI=0 

830 GOTO 1010 

840 IF K<>68 THEN 900 

850 DI=0 

860 DJ=1 

870 IF BX+1C10 THEN 1010 

880 DJ = 0 

890 GOTO 1010 

900 IF K<>83 THEN 960 

910 DI = 0 

920 DJ = -1 

930 IF BX-1>-1 THEN 1010 
940 DJ=0 • 

950 GOTO 1010 

960 IF K<>88 THEN 760 

970 DI=1 

980 DJ=0 

990 IF BY-1>-1 THEN 1010 
1000 DI=0■ 

1010 CALL HCHAR( I, J , G ) 

1020 I=I+2*DI 
1030 J=J+2*DJ 
1040 CALL GCHAR(I,J,G) 

1050 BX=BX+DJ 
1060 BY=BY-DI 
1070 GOTO 750 
1080 CALL SOUND(100,-1,2) 

1090 IF (AX=BX)+(AY=BY)=-2 THEN 1230 

1100 IF AX<=BX THEN 1130 

1110 CALL HCHAR(19-BY*2,8+BX*2,115) 

1120 GOTO 1200 

1130 IF AX>=BX THEN 1160 

1140 CALL HCHAR(19-BY* 2,8+BX*2,113) 

1150 GOTO 1200 

1160 IF AY> =BY THEN 1190 

1170 CALL HCHAR(19-BY*2,8+BX*2,116) 

1180 GOTO 1200 

1190 CALL HCHAR(19-BY* 2,8+BX* 2,114) 

1200 GOSUB 1340 

1210 CALL SOUND(100,1497,2) 

1220 GOTO 700 

1 230 CALL HCHAR(19-AY*2,8+AX*2,128) 
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T1-99/4A 


1240 GOSUB 1340 
1 250 FOR 1 = 1 TO 15 

1260 CALL SOUND(-100,INT(200*RND+200),2) 
1270 CALL COLOR(13,12,1) 

1280 CALL COLOR(13,7,1) 

1290 NEXT I 

1 300 PRINT -:"CI RIPROVI? (S/N)"; 

1310 CALL KEY(0,K,S) 

1320 IF K=83 THEN 510 
1 330 IF K=7 8 THEN 1 400 ELSE 1310 
1340 SC=SC+1 
1350 S$=STR$(SC) 

1360 FOR 1=1 TO LEN(S$) 

1370 CALL HCHAR(23,18+1,ASC(SEG$(S$,I,1))) 
1380 NEXT I 
1390 RETURN 
1400 CALL CLEAR 
1410 END 


Diamond Drop 


Si dice sempre che il denaro 'non 
è tutto " e questo gioco ne è la 
lampante dimostrazione: i diaman¬ 
ti sono realmente "tutto". 
Supponete di trovarvi in una im¬ 
probabile grotta il cui soffitto è 
tappezzato di diamanti gigante¬ 
schi in precario equilibrio, ebbene, 
casualmente vi trovate a portata di 
mano una cesta: voi cosa fareste? 
Penso la stessa cosa che farete in 
questo gioco: raccogliere i diaman¬ 


ti cadenti. 

Il gioco è complicato dal fatto che 
i diamanti devono essere raccolti 
prima che tocchino terra, e dalla 
iniziale possibilità di scelta del li¬ 
vello di difficoltà e della possibilità 
di caduta diagonale delle pietruz- 
ze colorate. 

Per spostarvi con la cesta niente di 
più facile che la semplice pressio¬ 
ne dei tasti con le frecce,- quindi, 
cosa aspettate? 


110 RANDOMIZE 
120 GOSUB 620 
1 30 REM 

140 CALL CHAR(108,"10387CFE7C3810000000000000000000000000 
00000000000000000000000000 ") 
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150 CALL CHAR(128,"FFFFFFFF0000FFFFFFFFOOOOFFFFFFFFFFFFFF 
FFOOOOFFFFFFFFOOOOFFFFFFFF") 

160 CALL CHAR (132,"OOOOOOOOOOOOFFFFFFFFOOOOFFFFFFFFOOOOOO 
OOOOOOFFFFFFFFOOOOFFFFFFFF") 

170 SCR=0 :: SK=0 :: CH=10 :: S=0 :: CALL CLEAR :: CALL S 
CREEN(16): : DISPLAY AT(4,9):"D I A M O N D” 

180 FOR ROW=3 TO 6 

190 CALL HCHAR(ROW+2,6,32,20) 

200 DISPLAY AT(ROW + 3,6) :.. :: DISPLAY A 

T(ROW+4,6):"h h h h h h h h" 

210 DISPLAY AT(ROW + 5,6) :"p p p p p p p p" : : DISPLAY 
AT(ROW+6,6):"x x xxx x x xxx" 

220 DISPLAY AT (ROW + 7,6 ) : "il h h h h h h” : : DISPLAY AT( 

ROW+8,6). 

230 NEXT ROW 

240 DISPLAY AT(18,4):"DIFFICOLTA' (1,2) ?" :: ACCEPT AT(1 

8,24)BEEP VALIDATE("12")SIZE(1 ) :SK$ :: SK=VAL(SK$) 

250 DROP = 25 :: IF SK=2 THEN DROP=40 :: REM 
260 DISPLAY AT(21,2):"CADUTA DIAGONALE (S/N) ?" :: ACCEPT 
AT(21,27)BEEP VALIDATE("SN")SIZE(1):ANG$ 

270 IF ANG$="N" THEN ANG=0 :: GOTO 290 
280 ANG = 1 

290 CALL CLEAR :: SCR=SCR+1 

300 DISPLAY AT(1,2):"CHANCES:";CH :: DISPLAY AT(l,15)s"PU 
NTI:";S 

310 ROW=3 :: FOR 1=96 TO 120 STEP 8 

320 CALL HCHAR(ROW,3,1,28) : : ROW=ROW+1 :: NEXT I 

330 CALL HCHAR(24,1,30,32) 

340 CALL MAGNIFY(4) : : CALL SPRITE(#1 ,128,5,1 50,1 1 5,0,H) 
350 KHAR=108 :: ROW=41 :: FOR J = 6 TO 3 STEP -1 
360 A$ = "" :: FOR 1=3 TO 30 :: A$ = A$&CHR$(I): : NEXT I :: N 
= 28 

370 IF N=0 THEN 520 

380 R=INT(LEN(A$)*RND+1) :: P$ = SEG$(A$,R,1) : : X=ASC(P$>:: 
N=N-1 : : IF N = 0 THEN 400 

390 AS=SEG$(A$,1,R-1)&SEGS(A$,R+1,LEN(A$)-R) 

400 B=INT(RND*61*ANG)-30*ANG 

410 CALL HCHAR(J,X,32): : CALL SPRITE(#2,KHAR,KOLOR(J) ,ROW 
,8* (X-l)-2,DROP,B) 

420 CALL KEY(0,K,ST): : IF ST = 0 THEN CALL JOYST(1,H,V) : : H 
=SGN(H)ELSE H=(K=83)-(K=68) 

430 CALL MOTION (#1 ,0,60*H) 

440 CALL COINC(ALL,C) : : IF C THEN 500 

450 CALL POSITION( # 2,DROW , DCOL): : IF DROW<155 THEN 420 
460 CALL POSITION(#1,PROW,PCOL): : IF (DCOL-PCOLCl6)*(DCOL 
-PCOL>-8)THEN 500 

470 CALL DELSPRITE(#2) : : CALL MOTION(#1,0,0):: CH=CH-1 :: 
CALL SCREEN(11):: FOR F=0 TO 25 STEP 5 
480 CALL SOUND(-200,-5,F):: NEXT F :: CALL SCREEN(16):: I 
F CH=0 THEN 560 
490 GOTO 510 
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500 CALL DELSPRITE(#2) : : CALL MOTION(#1,0,0) : : S = S+(60/J) 
*SK*SCR+(60/J)*SK*SCR*INT(ABS(B)/l5) 

510 DISPLAY AT(1, 2 ):"CHANCES:";CH :: DISPLAY AT(1,15):"PU 
NTI:";S :: GOTO 370 

520 K=K+4 :: ROW=ROW-8 :: M=128 :: IF J<6 THEN M=132 
530 FOR F=0 TO 30 STEP 6 :: CALL SOUND(-300,1 500,F): : NEX 
T F 

540 CALL SPRITE(#1,M,5,150,115,0,H) 

550 NEXT J :: FOR G=600 TO 1400 STEP 100 :: CALL SOUND(10 
0,G,1) : : NEXT G :: DROP=DROP+3 :: GOTO 290 
560 CALL SCREEN(14): : IF S>HS THEN HS=S 

570 CALL DELSPRITE(ALL) : : CALL CLEAR :: DISPLAY AT(8,5):" 
I TUOI PUNTI: ";S :: DISPLAY AT(11,5):"HIGH SCORE: ";HS 
580 DISPLAY AT(16,5):"GIOCHI ANCORA (S/N)?" :: ACCEPT AT( 
16,26)BEEP VALIDATE("NS")SIZE(1 ) :REPLY$ 

590 IF REPLY$="N" THEN 610 
600 GOTO 170 
610 STOP 
620 REM 

630 FOR 1=96 TO 120 STEP 8 

640 CALL CHAR(I,"10387CFE7C381 000"): : NEXT I 
650 CALL COLOR(11,11,1) 

660 CALL COLOR(9,3,1) 

670 CALL COLOR(10,10,1) 

680 CALL COLOR(12,14,1) 

690 FOR J=3 TO 6 : : READ KOLOR(J):: NEXT J 
700 DATA 3,10,11,14 
710 RETURN 


II 


[ Copycat 


Pensate di avere buona memoria, 
colpo d'occhio, riflessi pronti, 
orecchio musicale? allora provate 
le vostre doti utilizzando questo 
prosramma, che mostra una classi¬ 
ca sequenza di suoni e numeri e vi 


chiede di riinserirla. Il prosramma, 
ben realizzato e presentato molto 
bene, sira sullo Spectrum 16 o48K 
e può essere salvato con SAVE 
"nome prosramma" LINE 10. 


10 POKE 23658,0 

13 RANDOMIZE : BORDER 0: PAPER 0: INK 7: CLS : INVERSE 0: OVER 0: 

FLASH 0: BRIGHT 0: GO SUB 9000 

14 DIM p(4): LET p(l)=ll: LET p(2) = 14 : LET p(3)= 1 7 : LET p(4)=20 

15 DIM p$(4,2) : LET pS(1)="AB": LET p$(2)="CD": LET p$(3)=”EF": 

LET pS(4)=“GH" — 

20 LET n$="1234" 
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25 LET e$="000OOOOOOOOO00000000000000000000": LET cS="5544332211": 

LET c$=c$+e$+e$+e$ 

30 GO TO 799 

40 FOR f=-20 TO 30 STEP 10: BEEP .06,f: NEXT f 
50 FOR £=0 TO 50: NEXT f 
100 LET t$=" n 

107 INK 4 : PLOT 87,63; DRAW -8,8: DRAW 0,8: DRAW 8,8: DRAW 88,0: 
DRAW 8,-8: DRAW 0,-8: DRAW -8,-8: DRAW -88,0 

110 PLOT 86,87: DRAW -7,-7 

111 PLOT 86,63: DRAW -7,7 

112 PLOT 176,63: DRAW 7,7 

113 PLOT 176,87: DRAW 7,-7 

135 INK 7: PRINT AT 12,10j"(G8}AB{G81CD{G8)EF{G8)GH" 

140 FOR f*0 TO 30: NEXT f 
150 LET t$-t$+n$(INT (RNDM + 1 ) ) 

180 FOR j-1 TO LEN t$ 

185 FOR ra=0 TO VAL c$(LEN t$)*5: NEXT ra 

190 PRINT AT 12,p(VAL t$(j)); PAPER 3;p$(VAL t$(j)) 

195 BEEP .1,VAL t$(j)M-8: PRINT AT 12,p(VAL t${j));p$(VAL t$(j)) 
200 NEXT j 

320 FOR y=l TO LEN t$: FOR x=0 TO 100-LEN tS: LET a5=INKEY$: IF a$ 
>="1” AND a$<="4" THEN GO TO 350 

330 NEXT X! PRINT AT 16,11; PAPER 6; INK 0;"TROPPO LUNGO": BEEP .1, 
10: PRINT AT 16,11;" ": GO TO 400 

350 IF a$Ot$ (y) THEN PRINT AT 16,12; PAPER 6; INK 0; "SBAGLIATO" ; 
AT 12,p(VAL a$); PAPER 3; INK 7;p$(VAL a$): BEEP 1,-10: PRINT 
AT 12,p(VAL a$);p$(VAL a$);AT 16,12;" GO TO 400 

360 PRINT AT 12,p(VAL a$); PAPER 3;p5(VAL aS) : BEEP .1,VAL a$*4-8: 
PRINT AT 12,p(VAL aS);pS(VAL a$) 

363 FOR u=0 TO 20: IF INKEY$="" THEN GO TO 370 

364 NEXT u 
370 NEXT y 
380 GO TO 150 

400 PRINT AT 12,p(VAL t$(y)); PAPER 6; INK 2; FLASH l;p$(VAL tS(y)) 
FOR b=0 TO 13: BEEP .07,0: NEXT b 
410 PRINT AT 12,p(VAL t$(y));p$(VAL tS(y)) 

700 CLS : PRINT AT 12,12; PAPER 2; INK 6;" PUNTI:”;LEN t$-l; M ";#0; 
PAPER 6; INK 0; FLASH 1;" PREMI UN TASTO PER CONTINUARE ": 
PAUSE 1: PAUSE 0: CLS : FOR £=-20 TO 30 STEP 10: BEEP .06,f: 
NEXT f 
720 CLS 

799 PRINT AT 1,21;"PREMI < P >";AT 3,21;"PER GIOCARE" 

800 FOR f=3 TO 6: INK f: PLOT 60,175: DRAW -60,0: DRAW 0,-100: 

DRAW 60,0 

805 PLOT 70,145: DRAW -20,0: DRAW 0,-40: DRAW 20,0: DRAW 0,40 
810 PLOT 80,75: DRAW 0,100: DRAW 20,0: DRAW 0,-40: DRAW -20,0: IF 
INKEY$="p" THEN INK 7: CLS : GO TO 31 
815 PLOT 110,145: DRAW 0,-40: DRAW 20,0: DRAW 0,40: DRAW 0,-70: 

DRAW -10,0: DRAW 0,10 

820 PLOT 190,60: DRAW -60,0: DRAW 0,-60: DRAW 60,0 
830 PLOT 190,10: DRAW 0,40: DRAW 20,0: DRAW 0,-40: PLOT 190,20: 
DRAW 20,0 

840 PLOT 205,60: DRAW 50,0: PLOT 230,60: DRAW 0,-60 

845 NEXT f: GO TO 800 
9000 REM udg 

9010 RESTORE : FOR f=USR "a" TO USR "h"+7: READ a: POKE f,a: NEXT f 
9020 RETURN 

9100 DATA 0,1,3,1,1,7,7,0 

9110 DATA 0,128,128,128,128,224,224,0 

9120 DATA 0,7,0,7,4,7,7,0 
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9130 DATA 0,224,96,224,0,224,224,0 

9140 DATA 0,7,0,7,7,0,7,0 

9150 DATA 0,224,96,224,224,96,224,0 

9160 DATA 0,6,6,6,6,7,0,0 

9170 DATA 0,0,0,0,192,224,192,0 


Il tacchino 


Eccovi pronti dò interpretare la 
parte di un tacchino, intento a ci¬ 
barsi di tutto quel che incontra sul¬ 
lo schermo - briciole di pane, mele 
verdi e mele rosse - evitando però 
i muri di mattoni, scarsamente di¬ 
geribili, che continuamente appa¬ 
iono un po' dovunque sullo scher¬ 
mo. Il gioco, governato dai tasti del 
cursore, termina quando il tacchi¬ 
no (a proposito, non assomiglia 


per nulla ad un tacchino, bensì ad 
un altro personaggio estremamen¬ 
te noto!) sbatte violentemente 
• contro un muro. Il programma, così 
ci garantiscono, è compatibile con 
il Currah Microspeech-. noi non ab¬ 
biamo potuto provarlo, quindi chi 
lo sperimenterà ce lo faccia sape¬ 
re; comunque il gioco funziona 
perfettamente anche su un Spec- 
trum normale. 


1 REM *********************** 

2 REM * TACCHINO * 

3 REM »***»**»*»**•*****»**•» 

5 GO SUB 300: LET hi=0 

10 LET c=0: LET k=50: LET 1-100: LET x=ll: LET y=16: LET sc=0: 

LET ti=400: LET keys-0 
15 FOR b-0 TO 31: PRINT AT 1,b;" : NEXT b 

20 PRINT AT 1,0;"PUNTI:";sc;AT 1,11 ;"MAX:"; hi: PRINT AT 1,22;"TEMPO 
:";ti;" ": LET ti-ti-1 

30 FOR e=2 TO 21: PAPER 1: PRINT AT e,0;"A";AT E,31;"A": NEXT e: 

FOR f=l TO 30: PRINT AT 2,f;"A": PRINT AT 21,f;"A lr : NEXT f 
40 PAPER 0: FOR g=3 TO 20: FOR h»T TO 29: PRINT AT g,h; BRIGHT 1;"B 
B": NEXT h: NEXT g 

50 IF INKEYS-"5" THEN LET y=y-l: LET C-0 

60 IF INKEYS-”6" THEN LET x-x+1: LET c-0 

70 IF INKEY$-"7" THEN LET x-x-1: LET c-0 

80 IF INKEYS-"8" THEN LET y-y+1: LET c-0 

90 IF INKEY8-"" THEN LET C-C+l 

95 IF ATTR (x,y)=4 THEN LET sc-sc+100: BEEP .2,-20: BEEP .1,-10 

100 IF ATTR (x,y)=2 THEN LET SC-sc+500: BEEP .3,-10: BEEP .1,-20: 

BEEP .2,1 

105 IF ATTR (x,y)-15 THEN GO TO 200 

110 IF ATTR (x,y)-71 THEN LET sc-sc+5: BEEP .1,-50 

115 PRINT AT x,y;"D" 

120 IF k=l0 THEN PRINT AT RND*17+3,RND*29+1; PAPER 0; INK 4;"C" 

125 IF 1-10 THEN PRINT AT RND*17+3,RND*29+1; PAPER 0; INK 2:"C" 

130 LET k-k-1: LET 1-1-1 ~ 

140 IF k<=0 THEN LET k=30 
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145 IF 1<=0 THEN LET 1=60 

150 PRINT AT RND*18+3,RND* 29+1 ; PAPER 1; INK 7;"AA" 

155 XF c=l5 THEN GO TO 200 
160 IF INKEY$="p" THEN PAUSE 0 

170 PRINT AT 1 ,0;"PUNTI:";sc;AT 1 r 11 ; "MAX: " ; hi: LET ti=ti-l : PRINT 
AT 1,22; "TEMPO:";ti;" " 

180 IF ti<=0 THEN GO TO 200 
185 PRINT AT x,y;" " 

190 GO TO 50 

200 BEEP .5,-20: BEEP .2,-30: PRINT AT 12,11; PAPER 2; INK 6; 

FLASH 1 ;“GAME OVER!": LET s$»"g(ay)m (eau)v(er)": LET g$ = MH 
210 PAUSE 50: INPUT #l;"Un , altra partita (S/N)? ”;g$ 

220 IF hi<sc THEN LET hi=sc 
230 IF g$="s" OR g$="S” THEN GO TO 10 
240 IF g$="n" OR g$="N" THEN STOP 
250 STOP 

300 FOR g=USR "a" TO USR "e"+7 
310 READ h: POKE g,h: NEXT g 
320 DATA 255,128,128,128,255,16,16,16 
330 DATA 0,0,16,56,56,16,0,0 
340 DATA 16,8,42,127,127,127,62,28 
350 DATA 60,126,219,153,255,219,102,60 
360 DATA 0,136,136,136,136,244,128,128 
400 BORDER 0: PAPER 0: INK 7 

410 CLS : PRINT AT 0,8;" BBB "TACCHINO~ BBB ";AT 0,7; INK 6;"D";AT 0,24; 
"D" 

420 PRINT AT 1,11;"ESPEECH" 

430 PRINT AT 3,0;"Sei un tacchino, e devi mangiareil maggior numero 
di briciole dipane, mele verdi e mele rosse, nel tempo assegnat 
o. " 

440 print AT 8,0;"Sarai disturbato solo dalla continua apparizio 
ne di muri di mattoni, ai quali devi prestare particolare attenz 
ione." 

450 PRINT AT 13,0;"Infatti il gioco finirà', oltre che allo scadere 
del tempo, se il tacchino sbàtterà' contro i muri di mattoni." 

460 PRINT AT 17,1;"USA I TASTI DEL CURSORE (5- 8)" 

470 PRINT AT 18,2; INK 6;"PUNTEGGIO: "; INK 7;"B"; INK 6;"=5 PUNTI" 
;AT 19,13; INK 4 ;"C"; INK 6;"-100 """;AT 70,13 ; INK 2;”C"; 

INK 6;"=500 

480 PRINT AT 21,3; INK 7;"PREMI < P > PER FARE PAUSA": PAUSE 100: 

LET s$*"pre(me) (oon) (tah)NOT (toh)": PRINT AT 21,3; FLASH 1;” 
PREMI UN TASTO PER GIOCARE"^ PAUSE 0 
500 RETURN 


Architetto 


Siete portati per l'urbanistica? ave¬ 
te gusto artistico? sareste in grado 
di progettare un piccolo quartiere 
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residenziale o una villetta per le 
vacanze? Bene, per saperlo basta 
che copiate questo breve ed origi- 







naie programma, che vi permette 
di collocare quattro diversi tipi di 
mattoni, nonché porte e finestre, e 
vi consente di sperimentare le vo¬ 
stre capacità senza turbare il pae¬ 
saggio naturale o l'aspetto della 


vostra città. Ah, se tutti gli architetti 
o i costruttori edili che hanno ope¬ 
rato sul territorio negli ultimi anni 
avessero avuto a disposizione tale 
strumento e lo avessero usato... 


1 REM *********»*«»•»*•**♦*»• 

2 REM - ARCHITETTO - 

3 REM ***«***»»*»***•**»*»*»* 

10 POR f«0 TO 47: READ d: POKE USR "a"+f,d: NEXT £ 

20 DATA 254,254,254,0,239,239,239,0 

21 DATA 254,254,0,239,239,0,254,254 

22 DATA 170,85,170,85,170,85,170,170 

23 DATA 85,170,85,170,85,170,85,170 

24 DATA 2,6,4,56,72,88,176,192 

25 DATA 255,145,145,145,145,145,153,255 

30 BORDER 4: PAPER 6: CLS : PRINT ' INK 3;" BB ARCHITETTO BB 

" ' INK 2; " AA • AA" " • INK 0;"OSA I TASTI:"' '"37 

6,7 e 8 per deporre i mattoni’""CAPS SHIFT per rimuoverli" 

40 PRINT '"'PREMI I TASTI:'"'"! - 4 per scegliere i mattoni'" "W per 
le finestre"'"D per le porte’""Z per stampare su ZX printer"'"X 
per pulire lo schermo" 

50 PAUSE 0: CLS 

60 LET x=0: LET y=0 

70 LET k = 49: GO TO 150 

80 PAUSE 1: PRINT AT x,y; INK 1 ; "E" 

90 PAUSE 0: LET k=CODE INKEY$ 

100 BEEP . 01,k/4: PRINT INK i; PAPER p; BRIGHT b;AT x,y;a$ 

110 IF k=8 OR k=9 OR k=10 OR k=ll THEN PRINT AT x,y;" " 

120 LET x=x+((k=54 OR k=10) AND x<21)-((k=55 OR k=ll) AND x>0) 

125 LET y=y+((k=56 OR k=9) AND y<31)-((k=53 OR k=8) AND y>0) 


130 

IF 

k=122 THEN 

POKE 23658,8: INPUT 

"Che nome ? ":t$: PRINT 


AT 

l,0;t$: POKE 23658,0: LPRINT ": 

COPY : 

LPRINT 't$' 

140 

IF 

k=120 THEN 

CLS : GO TO 60 



150 

IF 

k=49 THEN 

LET a$="A": LET i=2: 

LET p=7: 

LET b=0 

160 

IF 

k=50 THEN 

LET a$="B": LET i=3: 

LET p=7: 

LET b=l 

170 

IF 

k=51 THEN 

LET a$="C": LET i-4: 

LET p=6: 

LET b-0 

180 

IF 

k»52 THEN 

LET aS="D": LET i=4: 

LET p=6: 

LET b=l 

190 

IF 

k=119 THEN 

LET aS =,r F" : LET i«0: 

LET p-5 

: LET b=1 

200 

IF 

k=l00 THEN 

LET a$*"TSG8}": LET 

i-0 


210 

GO 

TO 80 
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Guida per l'input dei prosrammi 
sullo ZX Spectrum 


Come è noto, lo Spectrum è provvisto di 
2 serie di tasti srafici: una prima serie di 16 
caratteri grafici predefiniti (i tasti numerici 
da 7 a 8 e gli stessi "shiftati') e una serie 
di caratteri definibili dall'utente nell'ambi¬ 
to di un programma (le lettere da A a U). 
In entrambi i casi, per ottenere i caratteri 
desiderati occorre entrare in modo grafico 
(cursore contrassegnato dalla lettera G 
lampeggiante) premendo contemporanea¬ 
mente i tasti CAPS SHIFT e 9. 

Nei nostri listati i caratteri grafici predefimti 
sono indicati da una G e dal numero corri¬ 
spondente al tasto che occorre digitare, il 
tutto racchiuso tra due parentesi graffe. 

A esempio {G4} significa che occorre digi¬ 
tare il tasto 4, con il cursore in modo grafi¬ 
co. 

Analogamente la codifica SG, seguita da 
un numero da 1 a 8, significa che occorre 
digitare il relativo tasto numerico premen¬ 
do contemporanemaente il tasto CAPS 
SHIFT. 

Ad esempio quando si trova la codifi¬ 


ca (SG2), occorre premere il tasto 2 con¬ 
temporaneamente al tasto CAPS SHIFT, ov¬ 
viamente con il cursore in modo grafico. 
In entrambi i casi precedenti, quando un 
simbolo grafico deve essere digitato più 
volte, i caratteri GoSG della codifica sono 
preceduti da un numero che specifica 
quante volte va premuto il tasto grafico in¬ 
dicato. 

Così ad esempio (8G5) significa che il ta¬ 
sto grafico 5 va digitato 8 volte; analoga¬ 
mente (4SG1} significa che il tasto grafico 
1, premuto insieme a CAPS SHIFT, deve 
essere battuto 4 volte. I caratteri grafici de¬ 
finibili (le lettere da AaU in modo grafico) 
hanno una codifica semplificata: la lettera 
corrispondente, sottolineata. 

Quando in un listato viene presentata, ad 
esempio, una A sottolineata, occorre en¬ 
trare in modo grafico (al solito premendo 
contemporaneamente i tasti CAPS-SHIFT e 
9) e quindi digitare semplicemente il tasto 
che contrassegna la lettera A. 


| Quando leggete || Premete 

ir 

(Gl) 

i- n 

■ 

(G2) 

r* pi 

■ 

(G3) 

i* n 

m 

(G4 } 

Eli 

m 

(G5) 

MI 

1 

(G6) 

[•N 

S 

f G 7 ) 


a 

( G 8 ) 

Eli 

□ 

(SG1} M 

— ra itti 

k 

(SG2]f5j 

E* 1 " 

j 

isg3) Kb* 

m 

m 

[SG4 ! IEE 

■r ) \à 

r 

(SG5) Mt 

“i „n n 

i 

(SG6 ) 

1 OR ] (• W 


ISG7) 

nriF a 

■ 

( SG8 } 

1 :r. 11» 1 1 

■ 


Vedrete | 







































COSTRUISCI LA PRIMA BIBLIOTECA COMPLETA 
DI INFORMATICA PERSONALE 


QUADERN 
JACKSON 

DI PERSONAL COMPUTER 

Volume per volume, «elllmen» pei settimane. tutti gli argomenti 

deU Inloimallca pedonale: da coaa algnlllca "vivere col compuler al BASIC: 

dal COBOL al PASCAL e ai piu dlllual linguaggi e alatemi operativi (MS- DOS CP'M MSX .) 

Oairhardware al aoltware. dalta programmazione dei peraonal computer airutilrzzo dei piu 

attermati pacchetti aoltware: Mulllplan. Viaicalc, Lotua 1-2-3. Symphony dBaae ». Wordstar 



il 





la sua avventura nel 
mondo dei computer 
e ha bisogno di una 
guida sicura per 
costruire le basi della 
sua conoscenza ed 


esperienza 




por esigenze prolessionaii 
o culturali, un'organica 
Biblioteca di lesti di base, 
sentii da esperii qualificati, 
coerente con un disegno 
editoriale di ampio respiro. 


$ 0 ; <. 


QUADERNI JACKSON 

DI PERSONAL COMPUTER 

Una Biblioteca di agili 
monografie, rivolta ad un 
vastissimo pubblico: 
appassionati, professionisti, 
studenti e tecnici. 

30 Volumi pratici redatti con uno 
stile chiaro, competente, accurato 
ed essenziale. 
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